home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2dt.plp < prev    next >
Text File  |  1993-11-30  |  4KB  |  160 lines
  1. /**********   通信後に送信文書の保管を行う  v1.04a用   **********/
  2. %SetID{
  3.     var    ID[10];
  4.     ID:=@getchar(IndexLine,14,8);
  5.     case(ID,
  6.         {GEG01261},{ ID:={氷面鏡};    },
  7.         {},{ ID:={};    },
  8.         {},{ ID:={};    },
  9.     );
  10.     im(ID);
  11. };
  12.  
  13. %SaveMail{
  14.     %f    @SetID|{.}|@day;
  15.     %mtf    logd|{\mailtitl.$$$};
  16.     write(mtf,{SUB:}|@getchar(IndexLine,32,80)|
  17.           {TO:} |@getchar(IndexLine,14,8)|{\n});
  18.     mkdir(logd,{MAIL});
  19.     mergefile(mtf,logd|{\MAIL\}|f);
  20.     mergefile(file,logd|{\MAIL\}|f);
  21.     write(logd|{\MAIL\}|f,{\n（}|@daylong|{）\n\n});
  22.     footnote({});
  23. };
  24.  
  25. %SaveBMail{
  26.     %f    @SetID|{.}|@day;
  27.     mkdir(logd,{MAIL});
  28.     write(logd|{\MAIL\}|f,{SUB:}|@getchar(IndexLine,32,80)|
  29.                   {TO:} |@getchar(IndexLine,14,8)|{\n}|
  30.                   {(ﾊﾞｲﾅﾘﾒｰﾙ)\n\n});
  31.     footnote({});
  32. };
  33.  
  34. %SavePCVAN{
  35.     %f    @SetID|{.}|@day;
  36.     %mtf    logd|{\mailtitl.$$$};
  37.     write(mtf,{SUB:}|@getchar(IndexLine,32,80)|
  38.           {TO:PCV>}|@getchar(IndexLine,14,8)|{\n});
  39.     mkdir(logd,{MAIL});
  40.     mergefile(mtf,logd|{\MAIL\}|f);
  41.     mergefile(file,logd|{\MAIL\}|f);
  42.     write(logd|{\MAIL\}|f,{\n（}|@daylong|{）\n\n});
  43.     footnote({});
  44. };
  45.  
  46. %SaveFAX{
  47.     %DAY    @daylong;
  48.     %f    @getchar(DAY,3,2)|{_}|@getchar(DAY,6,2)|{_}|@getchar(DAY,9,2)|
  49.             {.FAX};
  50.     %mtf    logd|{\mailtitl.$$$};
  51.     write(mtf,{TO:}|@getchar(IndexLine,32,80));
  52.     mkdir(logd,{MAIL});
  53.     mergefile(mtf,logd|{\MAIL\}|f);
  54.     mergefile(file,logd|{\MAIL\}|f);
  55.     write(logd|{\MAIL\}|f,{\n（}|@daylong|{）\n\n});
  56.     footnote({});
  57. };
  58.  
  59. %SaveWPNC{
  60.     %DAY    @daylong;
  61.     %f    @head(@getchar(IndexLine,32,8),{@})|{.}|@day;
  62.     %mtf    logd|{\mailtitl.$$$};
  63.     write(mtf,{TO:}|@head(@getchar(IndexLine,32,80),{\n})|{\n});
  64.     mkdir(logd,{MAIL});
  65.     mergefile(mtf,logd|{\MAIL\}|f);
  66.     mergefile(file,logd|{\MAIL\}|f);
  67.     write(logd|{\MAIL\}|f,{\n（}|@daylong|{）\n\n});
  68.     footnote({});
  69. };
  70.  
  71. %POSTText{
  72.     var AnyWrite[3];
  73.     AnyWrite:={No};
  74.     delfile(SaveFName);
  75.     fopen(IndexFName);
  76.     loop({    IndexLine:=@fread;
  77.         case(@getchar(IndexLine,1,2),
  78.         {済},{
  79.             %file FNameTop|{MES}|
  80.                 @head(@getchar(IndexLine,4,3),{ })|{.TXT};
  81.             case(@getchar(IndexLine,8,5),
  82.             {Mail },{
  83.             SaveMail;
  84.             },{BMail},{
  85.             SaveBMail;
  86.             delfile(file);
  87.             },{PCVAN},{
  88.             SavePCVAN;
  89.             },{FAX  },{
  90.             SaveFAX;
  91.             },{WPNC },{
  92.             SaveWPNC;
  93.             },,{
  94.             write(SaveFName,IndexLine);
  95.             AnyWrite:={Yes};
  96.             });
  97.             im({Yes});
  98.         },,{
  99.             case(IndexLine<>{},{Yes},{
  100.             write(SaveFName,IndexLine);
  101.             AnyWrite:={Yes};
  102.             });
  103.             im(IndexLine<>{});
  104.         });
  105.     });
  106.     fclose;
  107.     case(AnyWrite,
  108.     {Yes},{copyfile(SaveFName,IndexFName)},
  109.     {No} ,{delfile(IndexFName)})
  110. };
  111.  
  112. %DELOldText{
  113.     %WriAny{write(SaveFName,IndexLine);
  114.         AnyWrite:={Yes};
  115.         im({Yes});
  116.     };
  117.     var AnyWrite[3];
  118.     AnyWrite:={No};
  119.     delfile(SaveFName);
  120.     fopen(IndexFName);
  121.     loop({    IndexLine:=@fread;
  122.         case(@getchar(IndexLine,1,2),
  123.           {予},{WriAny;
  124.         },{説},{WriAny;
  125.         },{覧},{WriAny;
  126.         },{保},{WriAny;
  127.         },{誤},{IndexLine:={予}|@getchar(IndexLine,3,80);
  128.             WriAny;
  129.         },{済},{
  130.             %file FNameTop|{MES}|
  131.                 @head(@getchar(IndexLine,4,3),{ })|{.TXT};
  132.             case(@getchar(IndexLine,8,5),
  133.               {Mail },{
  134.             SaveMail;
  135.             },{BMail},{
  136.             %fno @head(@getchar(IndexLine,4,3),{ });
  137.             SaveBMail;
  138.             delfile(file);
  139.             },{PCVAN},{
  140.             SavePCVAN;
  141.             },{FAX  },{
  142.             SaveFAX;
  143.             },{WPNC },{
  144.             SaveWPNC;
  145.             },       ,{
  146.             %fno @head(@getchar(IndexLine,4,3),{ });
  147.             delfile(file);
  148.             });
  149.             im({Yes});
  150.         },,{im({No})
  151.         })
  152.     });
  153.     fclose;
  154.     case(AnyWrite,
  155.     {Yes},{copyfile(SaveFName,IndexFName)},
  156.     {No} ,{delfile(IndexFName)})
  157. };
  158.  
  159. case(flag,{POST},{POSTText},{DEL},{DELOldText});
  160.